﻿Imports Microsoft.Web.Administration
Imports Microsoft.Web.Management
Imports System.Net

Public Class TimeClass

    Inherits WebClient
    Public Property Timeout() As Integer
        Get
            Return m_Timeout
        End Get
        Set(value As Integer)
            m_Timeout = value
        End Set
    End Property
    Private m_Timeout As Integer
    Public Sub New()

        Me.Timeout = 60000
    End Sub

    Protected Overrides Function GetWebRequest(address As Uri) As WebRequest
        Dim objWebRequest = MyBase.GetWebRequest(address)
        objWebRequest.Timeout = Me.Timeout
        Return objWebRequest
    End Function
End Class
